home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 34.zip / BS1 part 34 / GFA basic training.adf / Sound / SAEGEWELLE.LST < prev    next >
File List  |  1989-06-01  |  409b  |  24 lines
  1. ' Saegezahn
  2. @init
  3. @spielen
  4. END
  5. '
  6. PROCEDURE init
  7.   DIM wert&(255)
  8. RETURN
  9. PROCEDURE spielen
  10.   @saegezahn
  11.   FOR j%=300 TO 600 STEP 100
  12.     SOUND j%,12,255,0
  13.   NEXT j%
  14. RETURN
  15. PROCEDURE saegezahn
  16.   FOR i%=0 TO 63
  17.     wert&(i%)=-127+(i%*4)       ! Gradlinig nach oben
  18.     wert&(i%+63)=wert&(i%)      ! Genauso (kein abwärts)
  19.     wert&(i%+126)=wert&(i%)
  20.     wert&(i%+189)=wert&(i%)
  21.   NEXT i%
  22.   WAVE 0,wert&()
  23. RETURN
  24.